AJL 



\~7 



A N 



4 



A 



N 
A 



A 



V 



7 



4-^ 



A 



A 



7 



4 



4 



A 



V 



7 



A IT N 



4 



\ 



7 



4 



4 



7 



4 



K 4 



k A 



7 ^ 



A 



\ 



P 7 N 



7 



^T7 



4 



F N 



T 7 



N A 



V 




A N 



\~7 



4 



7 ^ 



4 



b A 



V N 



17 ^ 



b A 



A 



4 



k A 



A 



W A 



7 



4 

4 



V 



7 



A N 



A 



7 



4 



>4 



A 



b A 



V N 



b A 



7 ^ 



N 

A 



h. A 



7 ^ 



K 4 



7 



7 



A 



7 ^ 



K 4 



7 ^ 



V 



4 



N A 



k A 



V 



7 



N A 



4 



7 N 



N 

A 



7 



K A 



V N 



7 



4 



K 4 



N 

4 



N 4 



7 ^ 



K A 



7 ^ 



>4 



b 4 



17 ^ 



N 

4 



b 4 



N 4 



17 ^ 



K A 



V ^ 



N 

4 



V 



K 4 



17 ^ 



k 4 



17 ^ 



V 



4 



^ 4 



7 \ 



7 



K 4 



V N 



b 4 



7 



Iv 4 



4 



b 4 



7 ^ 



V 



A 



N 4 

K 2l 



7 ^ 



7 



^ 4 
fc^ 4 



7 ^ 



4 



7 



K 4 



7 ^ 



(QOMPUT 



DR. JOHN MANIuTES 

ECHNOLOGY DEPT. 
UNIV 



7 



4 



7 ^ 



V 




b 4 



V N 



4 



7 ^ 



V 



A N 



4 



K ^1 



N 4 



7 ^ 



4 



17 



A 



V N 



k 4 



7 ^ 



K 4 



N 4 



7 



7 



4_bv 



K 4 



7 



7 



4A 



b 4 



7 ^ 



A 



7 ^ 



k 4 



7 



4 



4 



7 



4 



b 4 



7 ^ 



^ 4 



7 



K 4 



7 ^1 



4 



7 ^ 



b 4 



4 



k 4 



p7 



^ 4 



7 



N 4 



7 ^ 



K 



7 



7 ^ 



T7 



7 



4 



7 ^ 



4 



K 4 



7 



N 4 



7 ^ 



4 



7 N 



17 



>1 



7 ^ 



7 



b. 4 



7 ^ 



4 



fc^ 4 



7 ^ 



7 



A 



7 



7 



7 



A N 



N17 
/ l K 



N"7 



b. 4 



4 



7 



7 ^ 



7 



7 



b 4 



7 N 



b 4 



7 



b 4 



7 N 



7 



computer 




V 



DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
Is assumed by the contributor or 1620 USER 3 Group, in con- 
nection therewith. 



1620 USERS GROUP BkOGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. . Datfe 

Program Name: " 

1. Does the abstract adequately describe what the program is and what Yes No. 

it does? 
Commen t 

2. Does the program do what the abstract says ? Yes No,. 

Commen t 

3. Is me Description clear, understandable, and adequate? Yes No.. 

Comment^ r 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No m 

Comment : _____ 

Are the Sense Switch options adequately described (if applicable)? Yes No m 

Are the mnemonic labels identified or sufficiently understandable? Yes No,. 

Comment - 

5. Does the source program compile satisfactorily (if applicable)? Yes No m 

Comment ' 

6. Does the object program run satisfactorily? Yes No. 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

- Commen t ; . 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Commen t ; ; ■ 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto "the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike ^ Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 



11/09/64 



1 6 2 EDIT 



Authors: Mr. Harold J. Delhommer Jr. 
Mr. Paul A. Cloutier 

Petroleum Industrial Computer 
P. 0. Box 3664 
Lafayette, Louisiana 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



fit 
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CARD DECK KEY 



1620 EDIT 



Total Number of SPS Source Test Program Cards is 61 
Sequence Numbered 99001 Thru 99061 



Total Number of SPS Source 1620 EDIT ROUTINE Program 
Cards is 221 Sequence Numbered 99779 Thru 999 



Total Number of Object, Compressed Sample Test Cards 
is 77 Sequence Numbered 00000 Thru 00074, with 
two clear core cards at beginning 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITLE (If subroutine, state in Title): 1620 EDIT 



2. Author; Organization: Harold J. Delhommer Jr., and Paul A. flnntisr 

Petroleum Industrial Computer Center 

Date: March 9. 1964 Users Group Membership Code: 1282 

3. Direct Inquiries to Name: Harold J. Delhommer Jr.. P. 0. Box 5664 f 

Lafayette, La. Phone: 318 23 51544 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) 

1620 EDIT is designed to provide data editing abilities to the 1620 

through programming. It is very similar to that available to 1400 

System users with changes only to offer more choices. It will work 

on data in either the numerical or alphabetic format. The Routine Edi ts 

data using the address locations supplied by the programmer in Actual 

or Symbolic of the EDIT WORD, EDIT DATA, and EDIT OUTPUT flocation wher e 
result is to be put) and telling it to EDIT. 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 2246 

b. Equipment required by program: 

Card System y ; Magnetic Tape System ; No. of Tapes 

Paper Tape System j Disk File System ; No. of Packs 



TNS, TNF, MF_X ; Auto divide ; Indirect addressing X ; Floating point hardware 



Other (specify) 



Can program be used on lesser Machine? YES . Specify which requirements can be 

easily removed TNS, TNF, MF write and insert sub routine. 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) S 

Is the program a library (ie, SPS) function to the Fortran system checked? 

SPS ; SPS - 1620/1710 X ; 



Mainline, Complete ; Macro 



Other programming language: 



d. Language used in the writeup: SPS 1 1 

8. Additional Remarks: This routine is designed to be included with an SPS prnpr a 
at compile time. It will later be modified to be made a routine under 
Monitor for those using 1311' s. Running time varies with Edit Word and 
Size ot EW and Data Fields. Time not noticeable unless a series is used" 

back to back. This rout ine has been run several thousand time*; 

correctly. ___ r _ ; 
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; Subroutine 
; Give details 
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This program edits actual data, using the address locations 
supplied by the programmer in either actual or symbolic, as 
the rightmost positions of the EDIT WORD, EDIT DATA, and EDIT 
OUTPUT. Alphameric data is handled as well as numeric data, 
with the programmer specifying the data form in the instruc- 
tions used in referencing the EDIT routine. The format for 
editing is specified by means of an EDIT WORD, which is 
discussed in the following pages. The address given for EOUT 
is the rightmost position of the field in which the edited 
data will be placed. The address given for ENDATA or EADATA 
is the rightmost position of either the Numeric or Alphameric 
data field, and a flag must be set in the leftmost position 
of either field. The EDIT Routine is referenced in the 
following manner. 



NUMERIC DATA: 

TFM EW, (Address of rightmost position of Edit Word) 

TFM ENDATA, (Address of rightmost position of Numeric 
Data) 

TFM EOUT, (Address of rightmost position in which 

edited result is to be placed) 

BTM EDN,(bbbbb) 



ALPHAMERIC DATA: 

TFM EW, (Address of rightmost position of Edit Word) 

TFM EADATA, (Address of rightmost position of Alpha- 
meric Data) 

TFM EOUT, (Address of rightmost position in which 

edited result is to be placed) 

BTM EDA,(bbbbb) 



This editing routine may be used for any output device on the 



1620. It will handle negative numeric or alphameric data and 
signify the status in the status portion of the EDIT WORD if 
desired. 

I EDIT NUMERIC and EDIT ALPHAMERIC MODIFICATIONS 

A(l) Maximum data field length = 10 numeric or 20 Alpha 
digits 

(2) Maximum EDIT word length = 25 Alphameric Characters 

(3) EDIT output area length must be = or greater than 
EDIT word length 

(4) All of the above specified lengths are subject to 
alteration by the programmer by changing the cards 
labeled XW, XO, XD, and XN. 

The length specified by XW, and XO must be twice 
the new desired maximum length of EW. 
The Length of XN must be the actual new desired 
maximum length of the DATA. 

The length of XD must be twice the length specified 
by XN. 

(5) The programmer MUST not use the following labels 
in his main program unless he changes these in 
this routine: 

EDN, EDA, X, EADATA, ENDATA, EOUT, EW, XC, XD, XG, 
XL, XN, XO, XR, XS, XW, XZ . 

(6) There are no restrictions on maximum or minimum 
size of data or word length except that given by 
the above (5) paragraphs, and the following: 



a. The EDIT word must contain enough blanks or 
non-permanent characters in the body of the word 
to contain all digits of the data field, including 
leading zeros, b. If the length of the EDIT word 
does not contain enough blanks or non-permanent 
characters to contain the entire data field, trun- 
cation occurs in the high order data digits not 
able to be placed in EOUT. 
EDIT WORD STRUCTURE 

A. HEADER PORTION 

B. BODY PORTION 

C. TRAILER PORTION 

D. STATUS PORTION 

A. Header Portion: The Header portion is the 
leftmost portion of the EW which may contain 
any Alphabetic character(s) and any of the 
following special characters: b @ « $. 
If the Body portion contains a Zero, any 
numeric characters are also allowed in the 
header portion. The Header portion will be 
reproduced in entirety, except in the case of 
a zero data field with the presence of a Zero 
being in the rightmost body position of EW. 
It may be omitted from the EW if desired. 

B. Body Portion: The body portion is the portion 
in which the data will be placed in the output 



format. It is the portion to the right of the 



Header portion if the Header portion is present, 

and is the leftmost portion of the EW if the 

Header portion is omitted. It is terminated 

by the rightmost Blank or Zero and may contain 

any of the following characters: 

(b) - Blank is replaced by any digit from the 
data field. 

(0) - Zero is replaced by any digit from the 
data field. It causes character sup- 
pression to occur in the following manner, 
if the EW contains no (*). (1) If 
the is to the right of the high order 
significant data digit in Edited output, 
all characters to the left of the high 
order significant data digit will be 
replaced with blanks , running left until 
the rightmost character of the header 
portion if it is present. (2) If the 
is to the left of the high order sig- 
nigicant data digit in the edited out- 
put, all characters to the left of the 
Zero, including the Zero will be made 
blanks, running left to the rightmost 
character in the Header portion. NOTE: 
, If the data field has Zeros to the left 
of the high order significant data digit, 
they will be placed in EOUT with sup- 
pression still starting at the EW Zero. 
Thus if Zeros are desired between the 
EW Zero and the High order significant 
data digit these Zeros must come from 
the data field, and must run up to the 
EW Zero. (3) If the is to the right 
of the rightmost blank in the body 
portion, it causes total suppression of 
the EOUT when the data field is equal 
to 0. If the data field is not 0, then 
it serves as a suppressor of Zeros to 
its left. (4) Only one Zero can be 
used in the Body portion. 

(*) - Asterisk is replaced by a digit from the 
data field. It must occur to the left 
of the in the Body portion, where it 
causes suppression (Check Protection) 
in the same ;manner as a Zero, with the 
exception that *'s will replace all 
suppressed characters. Only one is 
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used in the Body portion. It cannot 
be used in the Body unless a Zero is 
present. 

(.) - Periods and Commas are reproduced in 
EOUT. They cause data digits which 

(,) would be placed in their positions in 
EOUT to be moved one position to the 
left in EOUT. They are suppressed by 
a and * if they occur to the left of 
the starting position of suppression. 

C. Trailer Portion: The portion of the EW found 
between the rightmost Blank or Zero of the EW and 
the rightmost two positions of the EW. This portion 
may contain any Alphabetic Character (s) and or any 
of the following special characters: ) $ * 

/ , ( = @ It may not contain the following 
characters: Numerical Blanks + - Under 
any circumstances. The Trailer portion will be 
reproduced in entirety in the Edited Output. 

D. Status Portion: The Status portion consists 
of the rightmost two positions of the EW. The 
contents of these last two positions will be 
reproduced in the rightmost two positions of the 
Edited Output if the data field is negative, and 
Blanks will be placed in the rightmost two positions 
of the Edited Output if the data field is positive. 
If no distinction is to be made between negative and 
positive quantities, the Status portion fo the EW 
should be left Blank. The Status portion may NEVER 
be omitted from the EW, however, the Status portion 
may contain any 1620 Character except the Record and 
or Group Marks. 
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IV OBJECT TEST DECK OPERATING INSTRUCTIONS: 



1. Reset 1620, press 1622 Load Key, press 1622 Start Key 
after cards feeding stops. Insert on 1620 typewriter 
4900402 RS, Typewriter will then type out Edited results 
for the test words and data assembled in the program. 

2. The Object Program contains core clear cards as the first 
two cards of the program. You may change the test EW's 
and Data by refering to the enclosed program listing 

and making the changes on the typewriter. 

3. The Test Deck (3) that is included in this writeup 

does not test all possible conditions and is included only 
as a sample of what can be done with the 1620 EDIT routine. 



V MISCELLANEOUS: 

1. Place card deck (2) as the last cards in your program 
using 1620 EDIT and if you desire the program to branch 
after loading to the beginning then punch your label 
for the beginning of your program in card 99999. 

2. This program was changed after writting to remove and 
shorten all labels used in it so as not to load the 
symbol table of the minimum machine. If you desire a 
listing of the program without the address arithmetic 
contact the author and a listing will be supplied using 
labels in place of *. 



CONVERTS 
NUM. DATA 
TO INTERNAL 
AJPHA DATA 



STORES 
NUM. DATA 
IN INTERNAL 
WORK AREA 



STORES ALPHA 
DATA, CONVERTS 
TO INTERNAL 
NUM. FORM 



PLACES 
EW STATUS 
IN EOOT 
STATUS 



STORES EW 
IN INTERVAL 
STORAGE 
AREA 




Places 

BLANKS 
IN EOUT 
STATUS 



MOVES REST 
OF E/W INTO 
POSITION IN 
EOOT 



DETERMINES 

LEN&TH 
OF 

DATA FIELD 



DETERMINES 
NUMBER OF 
SIGNIFICANT 
DATA DIG-ITS 
1 



FINDS LENGTH 
OF EW, SETS 

FLAGS IN 
EW, EOOT 



SETS FLAGS 
IN 

ALPHAMERIC 
DATA FIELD 



LOCATES 
RIGHTMOST 
BLANK « ZERO 
IN EW 
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MOVE'S DATA 
DJG<TS INTO 
EOUT 8ooy 



PLACE'S 
BLANKS I W 
ENTIRE EOUT 



SCAM FOR. 
POSIT/OV 
OF ZERO 






r .. _ _ 


•V. PRESENT^ 






R.EPLACE05 
SUPPRESSED 
CHARACTER 
WITH ^ERO 


R£P(-AC£fS 

SUPPRESSED 

CHARACTER. 

WITH ASTERISK 







SUPPRESS LEFT 
FROM ZERO 
TO HEADER 
PoR. 




VE5 



SUPPRESS LEFT 
FROM FIRST Sl&. 

data digit to 
Header por 



moves EOUT 

TO 
EXTERNAL 
OUTPUT AREA 




Ill EXAMPLES OF EDIT WORDS: 



catuea check pn.otzc.tion 

^ ^iuppizi&ion itaiti hziz 



DAC 20 ,y^VLU Eb=b$j> , *M ) .bblCR, 

He.ade.1 Body J Statui 
Tiailzn 



,iuppnzaion itaiti hzn.z, i^ 
I data zzn.0 , zntiiz EOUT 



DAC 2 ,^UMb bbbb j j^bb b . bj fr»bb , iuppuzazd. 

Uzadz* Body l^Statui 
TnailzK 



TOT DAC 17,£b2OTb^ / b J bb^bb£R ; Tiaitzi Omittzd 

HzadzA. Bodn Statui 



DAC 2 5, ^ALANCEb=^)b,bb0^.bb ^A^£ ^) 

Hzadzft Body T KaitzK Statui 



DAC 21,ibb,bbb,bbb,bbb,bbQb- 



Body 



Statui 



Hzadzn, TiailzK, 
Omittzd 



, jjbb , b bb , bbO . bb Tjff M£R^^ 

Body - ■ - 



DAC 2 1 „bbb , bbb , bbO . bbJOTALJCR t Hzadzi Omittzd 

Tiaitzi Statui 




Hzadzi, iKailzK, 
Omittzd 



PRINT OUT ON TYPEWRITER 

ksookom — 

VALUE = $**175.40* . OF SAMPLE DATA. 

VALUE = $**225.00* 

VALUE = $***12.34*CR 
VALUE = $*****. 00* 
VALUE = $**543.21* 



SUM 


$ 


175. ^0* 


SUM 


$ 


225.00* 


SUM 


$ 


12.34* 


SUM 


$ 


543.21* 






, 17.540 






, 22.500 






, 01.234 






, 00.000 






, 54.321 






17.540 






22.500 






1.23^ 






.000 






5^.321 



175.40**SUM 
225.00**SUM 
12.34**SUMCR 
.00**SUM 

543.21**SUM VALUE = $*****. 00* VALUE = $***7L54*CR 

SUM $ 71.54* , , , 00.000 , , , 07.154 

.000 7.154 .00**SUM 71.54 

**SUMCR 
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1 






















99001 




THE FOLLOWING CARDS ARE THE TEST PROGRAM FOR 1620 EDIT 


00402 


32 


01166 


00000 


99002 




SF 


ADATA2 


00414 


16 


01222 


-0001 


99003 


START 


TFM 


WCNTR tl 


06426 


16 


01227 


-0001 


99004 




TFM 


DCNTRtl 


00438 


16 


00485 


-0969 


9900 5 




TFM 


LOOP+23»WORD2-2 


00450 


16 


00473 


-1134 


99006 




TFM 


LOOP+11 tDATAl 


00462 


16 


03305 


-0000 


99007 


LOOP 


TFM 


ENDATA 


00474 


16 


03315 


-0000 


99008 




TFM 


EM 


00486 


16 


03310 


-1215 


99009 




TFM 


tz m it m it l 
fc UU 1 t UU 1 1 


00498 


17 


01234 


-0000 


99010 




BTM 


EDN 


00510 


34 


00000 


00102 


99011 




RCT Y 




00522 


39 


01177 


00100 


99012 




WAT Y 


HI IT 1 7lR ' 

UU 1 1"jo 


00534 


14 


01227 


-0005 


99013 




CM 


f\C MTD <s 

UUin f K t 3 


00546 


46 


00594 


01200 


99014 




BE 


WINCR 


00558 


11 


01227 


-0001 


99015 




AM 


nf fciT D i 
UUPil K , 1 


00510 


11 


00473 


-0005 


99016 




AM 


LUUrt 11,3 


00582 


49 


00462 


00000 


99017 




B 


LOOP 


00594 


14 


01222 


-0005 


99018 


WINCR 


CM 


WCNTR i 5 


00606 


46 


00678 


01200 


99019 




BE 


MORE 


00618 


16 


01227 


-0001 


99020 




TFM 


DCNTRtl 


00630 


11 


01222 


-0001 


99021 




AM 


WCNTR tl 


00642 


34 


00000 


00102 


99022 




RCTY 




00654 


11 


00485 


-0040 


9902 3 




AM 


LOOP+23,40 


00666 


49 


00450 


00000 


99024 




B 


LOOP-12 ^ 


00678 


16 


01222 


-0001 


99025 


MORE 


TFM 


WCNTR, 1 


00690 


16 


01227 


-0001 


99026 




TFM 


DCNTRtl 


00702 


16 


00749 


-0969 


99027 




TFM 


LOOPA+23»WORD2-2 


00714 


16 


00737 


-1165 


99028 




TFM 


L00PA+11,ADATA2-1 


00726 


16 


03300 


-0000 


99029 


L00PA 


TFM 


EADATA 


00738 


16 


03315 


-0000 


99030 




TFM 


EW 


00750 


17 


01270 


-0000 


99031 




BTM 


EDA 


00762 


39 


01177 


00100 


99032 




WATY 


OUT 1-38 


00774 


14 


01227 


-0002 


99033 




CM 


DCNTR,2 


00786 


46 


008 34 


01200 


99034 




BE 


AINCR 


00798 


11 


01227 


-0001 


99035 




AM 


rkf kiT d i 
UK. n 1 K 1 1 


008 10 


11 


00737 


-0010 


99036 




AM 


LOUPA + 1 1 1 ill 


00822 


49 


00726 


00000 


99037 




B 


LOOPA 


00834 


14 


01222 


-0005 


99038 


AINCR 


CM 


WCNTR f 5 


00846 


46 


00906 


01200 


99039 




BE 


END 


00858 


16 


01227 


-0001 


99040 




TFM 


DCNTRtl 


00870 


I j 


01222 


—0001 


99041 




AM 


WCNTR tl 


00882 


11 


00749 


-0040 


99042 




AM 


LOOPA +23 t40 


00894 


49 


00714 


00000 


99043 




B 


LOOPA- 12 


00906 


48 


AAA Aft 


AAA/) ft 




END 


H 




00918 


49 


00414 


ooooo 


99045 




B 


START 


00931 




00020 




99046 


W0RD1 


DAC 


20, VALUE « $ t* 0. *CR 


PAGE 


2 














00971 




00020 - 




99047 


WORD 2 


DAC 


20 t SUM $ » . 0* t 


01011 




00020 




99048 


W0R03 


DAC 


20 t t t t . t 


01051 




00020 




99049 


W0RD4 


DAC 


20, t t t 0. t 


O1091 




00020 




99050 


WORD 5 


DAC 


20, t t 0. **SUMCR 


01134 




00005 




9905 1 


0ATA1 


DC 


5,17540 


01139 




00005 




99052 


DATA2 


DC 


5t22500 


01144 




00005 




99053 


DATA 3 


DC 


5,-1234 


01149 




00005 




99054 


DATA4 


DC 


5,00000 


01154 




00005 




99055 


DATA 5 


DC 


5,54321 


01157 




00005 




99056 


A0ATA1 


DAC 


5,00000 


01166 




000 10 




99057 


ADATA2 


DSC 


10,7077717554 


01215 




00040 




99058 


0UT1 


OS 


40 


01217 




00001 




99059 


REC 


DAC 


1,3 


01222 




00005 




99060 


WCNTR 


DS 


5 


01227 




00005 




99061 


OCNTR 


OS 


5 










99779 


* 


THE FOLLOWING CARDS ARE THE 1620 EDIT PROGRAM 


01232 




00005 




99780 




DS 


5 


01234 


73 


03340 


0330N 


99781 


EDN 


TNF 


XD, ENDATA, 11, ENTRY FOR EDIT OF NUMERIC DATA 


01246 


26 


03357 


0330N 


99782 




TF 


XN, ENDATA, 11, PLACES NUMERIC DATA IN INTERNAL WORK AREA 


012S8 


49 


01394 


00000 


99783 




B 


*+136 


01270 


26 


03340 


0330- 


99784 


EOA 


TF 


XD, EADATA, 11, ENTRY FOR EDIT OF ALPHAMERIC DATA 


01282 


16 


03320 


-3356 


99785 




TFM 


XCXN-l,, THIS PLACES FLAG IN STRIPPED DATA FIELO 


01294 


16 


01317 


-3337 


99786 




TFM 


*+23,XD-3 i 


01306 


44 


01350 


00000 


99787 




BNF 


*+44 < 


01318 


32 


0332- 


00000 


99788 




SF 


XC,,6 


01330 


72 


03340 


03357 


99789 




TNS 


XD,XN 


01342 


49 


01394 


00000 


99790 




B 


*+52 


01350 








99791 




DORG 


*-3 


01350 


33 


0332- 


00000 


99792 




CF 


XC,,6 


01362 


!2 


03320 


-0001 


99793 




SM 


XC,1 


01374 


12 


01317 


-0002 


99 79 4 




SM 


*-57,2 


01386 


49 


01306 


00000 


99795 




B 


*-80 


01394 








99796 




DORG 


*-3 


01394 


25 


03342 


03339 


99797 




TD 


XG,XD-1,, THIS CHECKS FOR DATA SIGN, SETS STATUS 


01406 


26 


03467 


0331N 


99798 




TF 


XW,EW,11, PLACES EDIT WORD IN INTERNAL STORAGE AREA 


01418 


14 


03342 


000-7 


99799 




CM 


XGt7,10 


01430 


46 


01486 


01200 


99800 




BE 


*+56 


01442 


32 


03464 


00000 


99801 




SF 


XW-3 


01454 


26 


03407 


03467 


99802 




TF 


XO,XWtt DATA NEGATIVE, PLACES EW STATUS IN EOUT STATUS 


01466 


15 


03339 


00007 


99803 




TDM 


XD-1,7 


01478 


49 


01498 


00000 


99804 




B 


*+20 


01486 








99805 




DORG 


*-3 


01486 


16 


03407 


0-000 


99806 




TFM 


X0,0,8t DATA POSITIVEt PLACES BLANKS IN EOUT STATUS 


01498 


26 


03403 


03463 


99807 




TF 


X0-4,XW-4,, MOVES BODY OF EW TO BODY OF EOUT 


01510 


16 


03472 


-0002 


99808 




TFM 


X2,2,, DETERMINES DATA FIELD LENGTH 


01522 


16 


01545 


-3356 


99809 




TFM 


*+23,XN-l 
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01534 


44 


01558 


00000 


99810 


BNF 


*+24 


01546 


49 


01682 


00000 


99811 


B 


* + 136 


01558 


12 


01545 


-0001 


99812 


SM 


*-13,l 


01570 


11 


03472 


-0001 


99813 


AM 


XZ f 1 


01582 


49 


01534 


00000 


99814 


B 


*-48 


01590 








9981 5 


OORG 


*-3 


01590 


16 


03320 


-0001 


99816 


TFM 


XCflft IF 


01602 


16 


01620 


-3407 


99 817 


TFM 


*+18,X0 


01614 


16 


00000 


000-0 


99 818 


TFM 


t00,10 


01 62 6 


24 


03320 


03347 


998 19 


C 


XCtXL 


01638 


46 


01910 


1 200 


998 20 


BE 


*+272 


01650 


11 


03320 


-000 1 


9982 I 


AM 


XCtl 


01662 


12 


01620 


-0002 


99822 


SM 


*-42,2 


01674 


49 


01614 


00000 


9982 3 


B 


*-60 


01682 








99824 


OORG 


*-3 


01682 


26 


03417 


03472 


9982 5 


TF 


XS,XZ,, 


01694 


26 


01717 


01545 


99826 


TF 


*+23»*-149 


01706 


43 


01774 


00000 


9982 7 


BO 


*+68 


01718 


14 


03417 


-0001 


99828 


CM 


XStl 


01730 


46 


01774 


01200 


99829 


BE 


*+44 


01742 


12 


03417 


-0001 


99830 


SM 


XS,1 


01754 


H 


01717 


-0001 


99831 


AM 


*-37,l 


01766 


49 


01706 


00000 


998 32 


B 


*-60 


01774 








99 83 3 


DORG 


*-3 


01774 


33 


03464 


00000 


99834 


CF 


XW-3,,, 


01786 


16 


03094 


-3347 


99835 


TFM 


X+6.XL 


01798 


15 


03101 


00009 


99836 


TDM 


X+13,9 


01810 


16 


03123 


-3466 


9983 7 


TFM 


X+35,XW-1 


01822 


16 


03262 


-1878 


99838 


TFM 


X+174,*+56 


01834 


16 


01988 


-2038 


99839 


TFM 


*+154,*+204 


01846 


16 


01952 


-3466 


99 840 


TFM 


*+106,XW-l 


01858 


16 


01964 


-3406 


99841 


TFM 


*+106,X0-l 


01870 


49 


03088 


00000 


99842 


B 


X 


01878 








99843 


OORG 


*-3 


01878 


15 


01947 


00002 


99 844 


TDM 


*+69,2 


01890 


15 


01959 


00002 


99 84 5 


TDM 


*+69,2 


01902 


49 


01934 


00000 


99846 


8 


*+32 


01910 








9984 7 


DORG 


*-3 


01910 


15 


01947 


0000 3 


99848 


TDM 


*+37,3 


01922 


15 


01959 


00003 


99 OH 9 


TDM 


*+37 1 3 


01934 


16 


03320 


-0002 


99850 


TFM 


XC,2 


01946 


32 


00000 


00000 


99851 


SF 




01958 


32 


00000 


00000 


99852 


SF 




01970 


24 


03320 


03347 


99853 


C 


XCt XL 


01982 


46 


00000 


01200 


99854 


BE 




01994 


11 


03320 


-0001 


99855 


AM 


XCtl 
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02006 


12 


01952 


-0002 


99856 


SM 


*-54,2 


02018 


12 


01964 


-0002 


99857 


SM 


*-54,2 


02030 


49 


01946 


00000 


99858 


B 


*-84 


02038 








99859 


DORG 


*-3 


02038 


16 


01988 


-2626 


99860 


TFM 


*-50t*+588, f 


02050 


16 


01952 


-3466 


99861 


TFM 


*-98»XW-l 


02062 


16 


01964 


-3406 


9986 2 


TFM 


*-98,X0-l 


02074 


16 


03320 


-0001 


99863 


TFM 


XCtl tt 


02086 


16 


02104 


-3339 


99864 


TFM 


*+18 t XD-l 


02098 


32 


00000 


00000 


99865 


SF 




02110 


24 


03320 


03472 


99866 


c 


XCtXZ 


02122 


46 


02166 


01200 


99867 


BE 


*+44 


02134 


11 


03320 


-0001 


9986 8 


AM 


XC»1 


02146 


12 


02104 


-0002 


99869 


SM 


*-42 ,2 


02158 


49 


02098 


00000 


99870 


B 


*-60 


02166 








99871 


DORG 


*-3 


02166 


16 


03094 


-3320 


99872 


TFM 


X+6 t XC t » 


02178 


15 


03101 


00001 


99873 


TDM 


X+13 f 1 


02190 


16 


03123 


-3403 


99874 


TFM 


X+35.X0-4 


02202 


16 


03135 


000-0 


99875 


TFM 


X+47,00, 10 


02214 


16 


03142 


-2290 


99876 


TFM 


X+54,*+76 


02226 


16 


03166 


-3347 


99877 


TFM 


X+78,XL 


02238 


16 


03178 


-1910 


9987 8 


TFM 


X+90,*-328 


02250 


49 


03088 


00000 


99879 


B 


X 


02258 








99880 


DORG 


*-3 


02258 


14 


03121 


000P0 


99881 


CM 


X+35,70,610, 


02270 


46 


01590 


01200 


99882 


BE 


*-680t t , 


02282 


49 


02314 


00000 


99883 


B 


*+32 


02290 








99884 


DORG 


*-3 


02290 


14 


03357 


000-0 


99885 


CM 


XN,0,10 


02302 


46 


02258 


01200 


99886 


BE 


*-44 


02314 


11 


03320 


-0002 


99887 


AM 


XC,2 


02326 


16 


03412 


-0001 


9988 8 


TFM 


XR,1 


02338 


16 


03135 


000-3 


99889 


TFM 


X+47,3t 10 


02350 


15 


03137 


00007 


99890 


TDM 


X+49,7 


02362 


16 


03142 


-2410 


99891 


TFM 


X+54 f *+48 


02374 


16 


03166 


-3347 


9989 2 


TFM 


X+78»XL 


02386 


16 


03178 


-1910 


99893 


TFM 


X+90,*-476 


02398 


16 


02421 


-3340 


99894 


TFM 


*+23,XD 


02410 


26 


0312L 


00000 


99895 


TF 


X+35,,6, 


02422 


24 


03412 


03417 


99896 


C 


XRtXS 


02434 


46 


02478 


01200 


99897 


BE 


*+44 


02446 


11 


03412 


-0001 


9989 8 


AM 


XR.l 


02458 


12 


02421 


-0002 


99899 


SM 


*-37,2 


02470 


49 


03146 


00000 


99900 


B 


*+678 


02478 








99901 


DORG 


*-3 



IF ZERO TO RIGHT, AND DATA ZERO, BLANKS OUT EOU' 



DETERMINES NUMBER OF SIGNIFICENT OATA DIGIT! 



FINDS LENGTH OF EW, SETS FLAGS IN EW, EOUT 



READIES FLAG LOOP FOR OUTPUT CLEAR 



SETS FLAGS IN EXPANDED DATA FIELD 



FINDS RIGHTMOST BLANK OR ZERO IN EW 



CHECKS FIRST BLANK OR ZERO FOR ZERO 

IF ZERO, BRANCH TO COMPARE DATA FIELD TO ZEI 



MOVES DATA DIGITS INTO EOUT 
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02478 


26 


03417 


03320 


99902 




TF 


XStXC 


02490 


16 


02433 


-3472 


99903 




TFM 


*-57,XZ 


02S02 


16 


02440 


-2522 


99904 




TFM 


*-62,*+20 


02514 


49 


02422 


00000 


99905 




B 


*-92 


02522 








99906 




DORG 


*-3 


02522 


15 


03137 


00006 


99907 




TDM 


X+49,6 


02534 


16 


02433 


-3417 


99908 




TFM 


*-101»XS 


0254* 


16 


02440 


-2478 


99909 




TFM 


*-106»*-68 


02558 


16 


03094 


-3412 


99910 




TFM 


X+6,XR,, 


02570 


16 


03123 


-3462 


99911 




TFM 


X+35,XW-5 


02582 


16 


03135 


000-P 


99912 




TFM 


X+47,07,1011 


02594 


16 


03142 


-2640 


99913 




TFM 


X+54,*+46»» 


02606 


16 


03178 


-1910 


99914 




TFM 


X+90,+-696,, 


02618 


49 


03088 


00000 


99915 




B 


X 


02626 








99916 




DORG 


*-3 


02626 


26 


0331- 


03407 


99917 




TF 


E0UT,X0,6, , 


02638 


42 


00000 


00000 


99918 




BB 




02640 








99919 




DORG 


*-9 


02640 


16 


03094 


-3320 


99920 




TFM 


X+6,XC,, 


02652 


11 


03412 


-0002 


99921 




AM 


XR,2 


02664 


13 


03412 


000-K 


99922 




MM 


XR, 2,1011 


02676 


32 


00095 


00000 


9992 3 




SF 


95 


02688 


11 


00099 


-0002 


99924 




AM 


99,2 


02700 


11 


00099 


-3467 


99925 




AM 


99, XH 


02712 


26 


03123 


00099 


99926 




TF 


X+35, 99 


02724 


26 


03320 


03412 


99927 




TF 


XCXR 


02736 


16 


03135 


000-4 


99928 




TFM 


X+47,04,10 


02748 


16 


03142 


-2792 


99929 




TFM 


X+54,*+44 


02760 


16 


03166 


-3347 


99930 




TFM 


X+78,XL 


02772 


16 


03178 


-2844 


99931 




TFM 


X+90,*+72 


02784 


49 


03100 


00000 


99932 




B 


X+12 


02792 








99933 




OORG 


*-3 


02792 


14 


0312L 


0OOJ4 


99934 




CM 


X+35, 14,610 


02804 


46 


02824 


01200 


99935 




BE 


*+20 


02816 


49 


03148 


00000 


99936 




B 


♦+332 


02824 








99937 




DORG 


*-3 


02824 


16 


03031 


©00J4 


99938 




TFM 


♦+207,14,10, 


02836 


49 


02856 


00000 


99939 




B 


*+20 


02844 








99940 




DORG 


*-3 


02844 


16 


03031 


000-0 


99941 




TFM 


*+187,00,10 


02856 


24 


03417 


03412 


99942 




C 


XS,XR 


02868 


46 


02912 


01300 


■ 99943 




BNL 


♦+44 


02880 


26 


03320 


03412 


99944 




TF 


XC,XR 


02892 


12- 


03320 


-0001 


99945 , 




SM 


XC,1 




*►» 




AAAAA 






B 




02912 








99947 




DORG 


*-3 
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02912 


26 


03320. 


03417 


99948 




TF 


xcxs 


02924 


13 


03320 


000-K 


99949 




MM 


XC, 2,1011 


02936 


32 


00095 


00000 


99950 




SF 


95 


02948 


IX 


00099 


-3407 


99951 




AM 


99, XO 


02960 


26 


02978 


00099 


99952 




TF 


♦+18,99 


02972 


14 


00000 


000 J 3 


99953 




CM 


,13,10 


02984 


46 


01910 


01200 


99954 




BE 


♦-1074 


02096 


14 


0297Q 


000L0 


99955 




CM 


♦-18,30,610 


03008 


46 


03264 


01100 


99956 




BH 


♦+256 


03020 


16 


0300K 


00000 


99957 




TFM 


♦-18, ,6 


03032 


24 


03320 


03347 


99958 




C 


XC,XL 


03044 


46 


01910 


01200 


99959 




BE 


♦-1134 


03056 


12 


02978 


-0002 


99960 




SM 


♦-78,2 


03068 


11 


03320 


-0001 


99961 




AM 


XC,1 


03080 


49 


02972 


00000 


99962 




B 


♦-108 


03008 








99963 




DORG 


♦-3 


03088 


16 


00000 


-0001 


99964 


X 


TFM 


»lt» 


03100 


41 


03232 


00000 


99965 




NOP 


♦+132 


03112 


25 


03342 


00000 


99966 




TD 


XG 


03124 


14 


03342 


-0000 


99967 




CM 


XG 


03136 


46 


00000 


01200 


99968 




BE 




03148 


26 


03171 


03094 


99969 




TF 


♦+23.X+6 


03160 


24 


00000 


00000 


99970 




C 




03172 


46 


00000 


01200 . 


99971 




BE 




03184 


12 


03123 


-0002 


99972 




SM 


X+35, 2 


03196 


26 


03214 


03094 


99973 




TF 


♦+18,X+6 


03208 


11 


00000 


-0001 


99974 




AM 


,1 


03220 


49 


03100 


00000 


99975 




B 


X+12 


03232 


26 


03255 


03123 


99976 




TF 


♦+23, X+35 


03244 


44 


03184 


ooooo 


99977 




BNF 


♦-60 


03256 


49 


00000 


00000 


99978 




B 




03264 








99979 




OORG 


♦-3 


03264 


14 


0297Q 


000P0 


99980 




CM 


♦-286,70,610 


03276 


47 


01910 


01200 


9,9981 




BNE 


♦-1366 


03288 


49 


03020 


00000 


99982 




B 


♦-268 


03296 








99983 




DORG 


♦-3 










99984 


* 


WORK AREA CONST 


03300 




00005 




99985 


EADATA 


DC 


5,0 


03305 




00005 




99986 


EttDATA 


DC 


5,0 


03310 




00005 




99987 


E0UT 


DC 


5,0 


03315 




00005 




99988 


EM 


DC 


5,0 


03320 




00005 




99989 


XC 


DS 


5 


03340 




00020 




9999,0 


XO 


DC 


20,0 


03342 




00002 




99991 


XG 


DC 


2,0 


033*7 




00005 




9999 2 


XL 


DS 


5 


03357 




00010 




99993 


XN 


DC 


10,0 



SCAN TO LOCATE POSITION OF ZERO 



ZERO PRESENT, BRANCH TO SUPPRESSOR OR ROUT IF 
ZERO NOT PRESENT, SETS EOUT, GOES TO MAIN PI 



PLACES EDITED DATA IN EOUT, BRANCH TO MAIN PI 



CHECK FOR ASTERISK 



ZERO SUPPRESSOR AND CHECK PROTECTOR 



SCAN ROUTINE 
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jr. 



03407 


00050 


99994 


XO 


DC 


50,0 


03412 


00005 


99995 


XR 


OS 


5 


03417 


00005 


99996 


xs 


OS 


5 


034*7 


00050 


99997 


XH 


DC 


50,0 


03472 


00005 


99998 


XZ 


OS 


5 


00000 




99999 




DEND 









PACE 8 

START 00414 
A I NCR 00834 
MQRQ4 01051 
0ATA4 01149 

REC 01217 
X 03088 
XC 03320 
XO . 03407 



LOOP 00442 

END 00906 
H0RD5 01091 
DATA 5 01154 
MCNTR 01222 
EADATA 03300 
XO 03340 
XR 03412 



HI NCR 00594 
H0RD1 00931 
DATA1 01134 

A0ATA1 01157 
OCNTR 01227 

ENOATA 03305 
XG 03342 
XS 03417 



MORE 00678 
WORD 2 00971 
DATA2 01139 
A0ATA2 01166 
EON 01234 
EOUT 03310 
XL 03347 
XW 03467 



LOOPA 00726 
W0R03 01011 
0ATA3 01144 
0UT1 01215 
EOA 01270 
EH 03315 
XN 03357 
XZ 03472 



